10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 IFPEEK(52224)<>76THENLOAD"FADER 64.ML",8,1
30 POKE53280,0:POKE53281,0:PRINT"[159]";:POKE700,0
40 PRINT"[147]   COPYRIGHT 1989 COMPUTE! PUB., INC."
50 PRINTTAB(11)"ALL RIGHTS RESERVED":GOSUB440:PRINT"[147]"
60 SYS52224,130,60,3:PRINT"[147]";:GOSUB440
70 FORI=1TO4:READA$:SYS52227,A$,0:FORDY=1TO300:NEXTDY,I
80 FORI=1TO100:X=INT(RND(1)*15)+1:Y=INT(RND(1)*7):POKE53287+Y,X:NEXTI
90 DATA "COMPUTE'S GAZETTE","   PRESENTS...","THE FANTASTIC..."
100 DATA "SPRITE FADER 64!"
110 GOSUB450:GOSUB440:PRINT"[159][147]FOUR DIFFERENT TEXT SIZES![158]"
120 FORI=0TO3:A$="SIZE #"+STR$(I+1):SYS52224,80,26,I:SYS52227,A$,0
130 GOSUB440:GOSUB450:NEXT
140 PRINT"[159]";:SYS52224,120,100,2
150 PRINT"[147][150]AND MOVEMENT TOO!";:GOSUB430
160 FORI=1TO5:READA$:SYS52227,A$,1
170 GETA$:IFA$=""THEN170
180 NEXT:READA$:SYS52227,A$,1:FORI=53287TOI+7:POKEI,INT(RND(1)*14)+1:NEXT
190 DATA "PRESS ANY KEY...","SEE THE TEXT CHANGE ?","AND AGAIN..."
200 DATA "THIS FUNCTION IS GREAT","TO MAKE VIDEO BANNERS!"
210 DATA "EVEN WITH COLORS!"
220 GETA$:IFA$=""THEN220
230 PRINT"[147]MOVE TEXT IN FOUR DIRECTIONS!"
240 A$="THIS TEXT MOVES UP":SYS52224,100,30,3:SYS52227,A$,3:GOSUB440:GOSUB440
250 A$="THIS TEXT MOVES DOWN":SYS52224,100,25,3:SYS52227,A$,4:GOSUB440
260 GOSUB440:A$="THIS TEXT MOVES LEFT":SYS52224,100,30,3:SYS52227,A$,1
270 GOSUB440:GOSUB440:A$="THIS TEXT MOVES RIGHT":SYS52224,100,30,3
280 SYS52227,A$,2:GOSUB440:GOSUB440
290 A$=" ":SYS52227,A$,0
300 PRINT"[147]CUSTOM CHARACTERS MAY ALSO BE USED![155]":SYS52224,130,255,3
310 FORI=0TO15:READA:POKE49392+I,A:NEXT
320 DATA 0,3,31,255,255,31,3,0
330 DATA 63,255,252,248,248,252,255,63
340 A$="^_===<GAZETTE>":SYS52227,A$,1:POKE198,0
350 PRINT"";:GOSUB430
360 GETA$:IFA$=""THEN360
370 A$=" ":SYS52227,A$,1:POKE700,0
380 PRINT"[147]":SYS52224,130,90,1
390 A$="PRESS ANY KEY TO RESTART"
400 SYS52227,A$,0
410 GETA$:IFA$<>""THENRUN
420 GOSUB450:GOTO390
430 PRINT"";:FORI=1TO22:PRINT"";:NEXT:PRINTTAB(8)"PRESS ANY KEY TO FADE"
440 FORDY=1TO1000:NEXT:RETURN
450 FORDY=1TO300:NEXT:A$=" ":SYS52227,A$,0:RETURN